home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr48 / pasclern.zip / READFILE.PAS < prev    next >
Pascal/Delphi Source File  |  1993-04-01  |  324b  |  15 lines
  1. PROGRAM read_a_file;
  2.  
  3. VAR turkey     : TEXT;
  4.     big_string : STRING[80];
  5.  
  6. BEGIN  (* main program *)
  7.   ASSIGN(turkey,'READFILE.PAS');
  8.   RESET(turkey);
  9.   WHILE NOT eof(turkey) DO
  10.   BEGIN
  11.     READLN(turkey,big_string);
  12.     WRITELN(big_string);
  13.   END;  (* of WHILE loop *)
  14.   CLOSE(turkey);
  15. END.  (* of program *)